ocr: radoraclef Properties fe D Sub Clicko DIM VDatabase AS String DIM vUsername AS String DIM VPassword AS String DIM vConnect AS String DIM vrunconnect AS String Aplication.setcursort 1 ) Disconnect any existing session. IF SAPLE.Isconnectedt THEN SAHPLE.Disconnect () Set values for the database logon form and open the modal dialog. ErmDatabast-popDatabase.Trenslation = "Oracle 7 server-URAULE: rr ErmDatabase.popDatabase.Value = "ORACLE: rr ErDatabasc.opentodal 1 ) Open modal Database dialog Retrieve the data supplied in the database logon dialog. Application.SetCursor( 1 ) NDatabase = trmDatabas ...
